home *** CD-ROM | disk | FTP | other *** search
/ Educational Software Cooperative 4 / Educational Software Cooperative 4.iso / lights22 / weep.cpr / LM_LGD.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-06-22  |  1.2 KB  |  53 lines
  1. {$A-,B-,D+,F-,G+,I-,K-,L+,N-,P-,Q-,R-,S-,T-,V+,W-,X+,Y+}
  2. {$M 8192,8192}
  3. unit lm_lgd;
  4.  
  5. { Hinweis für C-Programmierer:
  6.  
  7.   Die Funktion LgdDefProc muß in der .DEF-Datei IMPORTiert werden.
  8.  
  9.   Prototyp (in einer .H-Datei):
  10.  
  11. BOOL LgdDefProc (LPLONG lRet, HWND hWnd, WORD msg, WORD wParam, LONG lParam);
  12.  
  13. }
  14. { Note for C programmers:
  15.  
  16.   IMPORT the LgdDefProc function in the .DEF-file.
  17.  
  18.   prototype for a .H file:
  19.  
  20. BOOL LgdDefProc (LPLONG lRet, HWND hWnd, WORD msg, WORD wParam, LONG lParam);
  21.  
  22. }
  23.  
  24.  
  25. interface
  26.  
  27. uses WinTypes;
  28.  
  29. Function LgdDefProc (var lRet:LongInt;
  30.                          window: hwnd;
  31.                          msg:word;
  32.                          wParam:word;
  33.                          lParam:LongInt): boolean;
  34.  
  35. Function ThTickCount: LongInt;
  36.  
  37. Function LgdAboutBox (window:hwnd; icon: hicon; pchName: PChar; pchCR: PChar;
  38.                       fFullVersion: boolean; iFactor: integer): integer;
  39.  
  40. implementation
  41.  
  42. Function LgdDefProc;
  43.   external 'lm_util' index 11;
  44.  
  45. Function ThTickCount: LongInt;
  46.   external 'lm_util' index 14;
  47.  
  48. Function LgdAboutBox (window:hwnd; icon: hicon; pchName: PChar; pchCR: PChar;
  49.                       fFullVersion: boolean; iFactor: integer): integer;
  50.   external 'lm_util' index 15;
  51.  
  52. end.
  53.